Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Text
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls


<LicenseProvider(GetType(MyLicensingProvider)), _
 ToolboxData("<{0}:BookSearch runat=server></{0}:BookSearch>")> _
Public Class BookSearch
    Inherits WebControl
    Dim lic As System.ComponentModel.License

    Public Sub New()
        lic = LicenseManager.Validate(GetType(BookSearch), Me)
        If LicenseManager.IsValid(GetType(BookSearch)) = False Then
            Throw New System.Exception("Licensing failed.")
        End If

    End Sub

    Public Overloads Overrides Sub Dispose()
        If lic IsNot Nothing Then
            lic.Dispose()
            lic = Nothing
        End If
    End Sub


End Class
